home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Libraries / SAT 2.4.0 / SAT / Misc / TransSkel / MiniSkel.c next >
Encoding:
C/C++ Source or Header  |  1995-01-26  |  648 b   |  35 lines  |  [TEXT/MPCC]
  1. #include <TransSkel.h>
  2.  
  3. MenuHandle m;
  4. WindowPtr theWind;
  5. Rect r;
  6. Boolean dummy;
  7.  
  8. void DoFileMenu (short item)
  9. {
  10.         SkelWhoa();
  11. }
  12.  
  13. void WindUpdate(Boolean resized, short whatever)
  14. {
  15. ForeColor(blueColor);
  16. PaintRect(&theWind->portRect);
  17. }
  18.  
  19. main ()
  20. {
  21.     SkelInit(nil, 6);
  22.     SkelApple("\p", nil);
  23.     m = NewMenu(2, "\pFile");
  24.     AppendMenu(m, "\pQuit/Q");
  25.     SkelMenu(m, &DoFileMenu, nil, false, true);
  26.  
  27.     SetRect(&r, 100, 100, 300, 300);
  28.     theWind = NewWindow(nil, &r, "\pIck ack uck", true, documentProc, (WindowPtr)-1, true, 0L);
  29.     SetPort(theWind);
  30.     dummy = SkelWindow(theWind, nil, nil, &WindUpdate, nil, nil, nil, nil, false);
  31.  
  32.     SkelMain();
  33.     SkelClobber();    
  34. }
  35.